home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / button12.lha / button9306.ps < prev    next >
Text File  |  1993-08-05  |  4KB  |  137 lines

  1. %
  2. % button9306.ps - A GNU Button Program
  3. %
  4. % Copyright 1993 Free Software Foundation
  5. %
  6. % This program is free software; you can redistribute it and/or modify
  7. % it under the terms of the GNU General Public License as published by
  8. % the Free Software Foundation; either version 2, or (at your option)
  9. % any later version.
  10. %
  11. % This program is distributed in the hope that it will be useful,
  12. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. % GNU General Public License for more details.
  15. %
  16. % You should have received a copy of the GNU General Public License
  17. % along with this program; if not, write to the Free Software
  18. % Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. %
  20. % Hard copies of this button were first distributed at the June
  21. % 1993 Cincinnati Usenix.  They had black lettering on a white
  22. % background on a standard 2 1/4" safety pin button.  They were
  23. % designed by Leonard H. Tower Jr. who is also the author of this GNU
  24. % Button Program.
  25. %
  26. % Report bugs or improvements to: tower@prep.ai.mit.edu
  27. %
  28. % Hard copies of this button are probably still available.  To get a
  29. % button, one must have either donated source code or documentation to
  30. % the GNU Project or make a donation of at least $ 2.00 for each button.
  31. %
  32. % If you wish a hard copy of a gnu button send:
  33. %     - a self-addressed, stamped envelope; and
  34. %     - either:
  35. %         - a reminder of your source or documentation contribution; or
  36. %         - a donation payable to the "Free Software Foundation"; and
  37. %     - specify how many each of these different versions you wish:
  38. %         Feb 88 (white GNU)        Jun 88 (yellow GNU)
  39. %        Jan 89 (blue GNUer)        Jun 89 (green GNUist)
  40. %        Jan 90 (yellow thanx GNU)    Jun 90 (white text on GNU) @@??
  41. %        Jan 91 (yellow text on GNU)@@??    Jun 91 (white cubist GNU)  @@??
  42. %        Jan 92 (yellow cubist GNU) @@??    Jun 92 (yellow GnURU)
  43. %        Jan 93 (white gnu & improved)   Jun 93 (white GNUrd)
  44. % to:    L. Tower Jr.
  45. %     36 Porter Street,
  46. %    Somerville, MA  02143, USA
  47. %
  48. % This program is available for anonymous ftp
  49. % prep.ai.mit.edu:/u2/emacs/button.N.MM.shar.  It is probably available
  50. % in other source archives.
  51.  
  52. % This version has this "phrase" centered inside the fine print circle:
  53. %
  54. %         ggg g  n nnn   u    u
  55. %        g   gg  nn   n  u    u            d
  56. %        g    g  n    n  u    u   r r      d
  57. %        g    g  n    n  u    u   rr r   ddd
  58. %        g   gg  n    n  u   uu   r     d  d
  59. %         ggg g  n    n   uuu u   r      ddd
  60. %             g
  61. %         gggg
  62. %
  63.  
  64. erasepage
  65.  
  66. % debugging help
  67. .so ehandler.ps
  68.  
  69. % uses {in,out}sidecircletext routines from Adobe Cookbook.
  70. .so circtext.ps
  71.  
  72. % center button on 8 1/2" x 11" page
  73. 306 396 translate
  74.  
  75. % This is a kludge to give better edge resolution.
  76. % Note that postscript's scale command doesn't cut it.
  77. % It scales after the edges are set.
  78. % biggg is set to 2,3,4, 3.7 or 3.9 to make a master that is that much larger.
  79. % The master is reduced that much by the button manufacturer.
  80. % If only 1200 dpi postscript printers were more common ...
  81. /biggg 1 def
  82.  
  83. % useful for centering button design
  84. /circleguide {
  85.   gsave
  86.   /radius 82 biggg mul def
  87.   .5 setlinewidth
  88.   newpath
  89.     0 0 radius 0 360 arc
  90.   stroke
  91.   grestore
  92. } def
  93.  
  94. %circleguide
  95.  
  96. gsave
  97.   /gnutext (gnu) def
  98.   /gtext (g) def
  99.   /rdtext (rd) def
  100.   % The "rd" are 1/*fudge size of /gnutext
  101.   /rdfudge 2 def
  102.   /gnuptsz 55 biggg mul def
  103.   /Times-Bold findfont gnuptsz scalefont setfont
  104.   %center
  105.   /rdwidth rdtext stringwidth pop rdfudge div def
  106.   /gnuwidth gnutext stringwidth pop def
  107.   /gwidth gtext stringwidth pop def
  108.   /shiftleft rdwidth 15 div def
  109.   /firstlinewidth gnuwidth rdwidth add def
  110.   /shiftdown gnuptsz 8 div neg def
  111.   firstlinewidth 2 div neg shiftleft add
  112.             shiftdown moveto
  113.   gnutext show
  114.   /Times-Bold findfont gnuptsz rdfudge div scalefont setfont
  115.   rdtext show
  116. grestore
  117.  
  118. gsave
  119.   /GNUptsz 14 biggg mul def
  120.   /Times-Bold findfont GNUptsz scalefont setfont
  121.   (GNU's Not Unix)
  122.     GNUptsz 270 63 biggg mul insidecircletext
  123. grestore
  124.  
  125. /tinyptsz 5.75 biggg mul def
  126. /tinyrad 73 biggg mul def
  127.  
  128. /Helvetica-Narrow-Bold findfont tinyptsz scalefont setfont
  129.  
  130. (Copyright 1993 Free Software Foundation, Inc.)
  131.   tinyptsz 270 tinyrad outsidecircletext
  132.  
  133. (Anonymous ftp prep.ai.mit.edu:/pub/gnu/button.N.shar, this button's postscript program, which is freely redistributable under the GNU General Public License.)
  134.   tinyptsz  90 tinyrad outsidecircletext
  135.  
  136. showpage
  137.